home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0411.ZIP / TGEXIT.C < prev    next >
Text File  |  1985-10-04  |  508b  |  19 lines
  1. /*
  2.  * This function provides a standard exit from the TGIMAGE command.
  3.  *
  4.  * It accepts input of a string which is displayed as an error message,
  5.  * the number of a file which it closes, and the name of a file which it
  6.  * deletes to provide security against TEX using an old copy of the data file.
  7.  *
  8.  */
  9. tgexit(errmsg,outfile,datfile)
  10.       int outfile;
  11.       char *errmsg[],
  12.        *datfile[];
  13.     {
  14.     printf("\n%s\n",errmsg);
  15.     fclose(outfile);
  16.     unlink(datfile);
  17.     exit(1);
  18.     }
  19.